home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / ppascal.zip / TAKEOFF.PAS < prev   
Pascal/Delphi Source File  |  1993-04-24  |  200b  |  17 lines
  1.  uses crt;
  2.  var
  3.   x:integer;
  4. begin
  5.  for x:=10 to 8000 do
  6.   begin
  7.    sound(2*x);
  8.    delay(1);
  9.   end;
  10.  for x:=8000 downto 10 do
  11.   begin
  12.    sound(2*x);
  13.    delay(1);
  14.   end;
  15.  nosound;
  16. end.
  17.